Programmers Heaven 2

home *** CD-ROM | disk | FTP | other *** search

/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / midipk.exe / VU.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1996-05-10 | 24.4 KB | 742 lines

VERSION 4.00 Begin VB.Form FormVu BorderStyle = 1 'Fixed Single Caption = "Indicator Properties Example" ClientHeight = 3960 ClientLeft = 1020 ClientTop = 1785 ClientWidth = 8520 BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 4365 Left = 960 LinkTopic = "Form1" LockControls = -1 'True MaxButton = 0 'False ScaleHeight = 3960 ScaleWidth = 8520 Top = 1440 Width = 8640 Begin VB.Frame Frame9 Caption = "Border" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 615 Left = 60 TabIndex = 17 Top = 60 Width = 2355 Begin VB.OptionButton OptionBorder Caption = "Single" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 225 Index = 1 Left = 1200 TabIndex = 21 Top = 270 Value = -1 'True Width = 885 End Begin VB.OptionButton OptionBorder Caption = "None" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 225 Index = 0 Left = 120 TabIndex = 20 Top = 270 Width = 885 End End Begin VB.Frame Frame8 Caption = "Color" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 1215 Left = 6030 TabIndex = 16 Top = 2670 Width = 2355 Begin VB.CommandButton CmdBackColor Appearance = 0 'Flat BackColor = &H80000005& Caption = "Back Color" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 315 Left = 120 TabIndex = 19 Top = 330 Width = 2115 End Begin VB.CommandButton CmdItemBackColor Appearance = 0 'Flat BackColor = &H80000005& Caption = "Item Back Color" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 315 Left = 120 TabIndex = 18 Top = 750 Width = 2115 End End Begin VB.Frame Frame7 Caption = "Indicator Value" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 675 Left = 2580 TabIndex = 15 Top = 3240 Width = 3315 Begin VB.HScrollBar HScrollValue Height = 255 Left = 120 Max = 100 TabIndex = 32 Top = 300 Value = 100 Width = 3045 End End Begin VB.Frame FrameBorderWidth Caption = "Border Width" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 675 Left = 60 TabIndex = 14 Top = 720 Width = 2355 Begin VB.HScrollBar HScrollBorderWidth Height = 255 Left = 120 Max = 10 TabIndex = 30 Top = 300 Value = 2 Width = 2100 End End Begin VB.Frame Frame5 Caption = "MIDI CoolTools Indicator" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 3030 Left = 2580 TabIndex = 13 Top = 60 Width = 3315 Begin VindicLib.VIndicator VIndicator1 Height = 2460 Left = 1200 TabIndex = 33 Top = 360 Width = 495 _Version = 65537 _ExtentX = 873 _ExtentY = 4339 _StockProps = 65 BackColor = 16777215 Border = 1 BevelOuter = 1 BevelWidth = 1 ItemBackColor = 16777215 ItemCount1 = 5 ItemCount2 = 3 ItemCount3 = 2 ItemForeColor1 = 65280 ItemForeColor2 = 65535 ItemForeColor3 = 255 BorderWidth = 2 BevelInner = 3 Value = 100 Min = 0 Max = 100 End End Begin VB.Frame FrameBevelWidth Caption = "Bevel Width" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 675 Left = 6030 TabIndex = 12 Top = 1890 Width = 2355 Begin VB.HScrollBar HScrollBevelWidth Height = 255 Left = 120 Max = 10 TabIndex = 31 Top = 300 Width = 2055 End End Begin VB.Frame FrameBevelOuter Caption = "Bevel Outer" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 855 Left = 6030 TabIndex = 11 Top = 990 Width = 2355 Begin VB.OptionButton OptionBevelOuter Caption = "Lowered" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 3 Left = 1320 TabIndex = 29 Top = 540 Width = 945 End Begin VB.OptionButton OptionBevelOuter Caption = "Inset" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 2 Left = 120 TabIndex = 28 Top = 540 Width = 945 End Begin VB.OptionButton OptionBevelOuter Caption = "Raised" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 1 Left = 1320 TabIndex = 27 Top = 300 Value = -1 'True Width = 945 End Begin VB.OptionButton OptionBevelOuter Caption = "None" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 0 Left = 120 TabIndex = 26 Top = 300 Width = 945 End End Begin VB.Frame FrameBevelInner Caption = "Bevel Inner" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 855 Left = 6030 TabIndex = 10 Top = 90 Width = 2355 Begin VB.OptionButton OptionBevelInner Caption = "Lowered" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 3 Left = 1320 TabIndex = 25 Top = 540 Width = 945 End Begin VB.OptionButton OptionBevelInner Caption = "Inset" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 2 Left = 120 TabIndex = 24 Top = 540 Width = 945 End Begin VB.OptionButton OptionBevelInner Caption = "Raised" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 1 Left = 1320 TabIndex = 23 Top = 300 Width = 945 End Begin VB.OptionButton OptionBevelInner Caption = "None" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 0 Left = 120 TabIndex = 22 Top = 300 Value = -1 'True Width = 945 End End Begin VB.Frame Frame1 Caption = "Item Segments" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 2475 Left = 60 TabIndex = 0 Top = 1440 Width = 2355 Begin VB.CommandButton CmdItemColor2 Appearance = 0 'Flat BackColor = &H80000005& Caption = "Item Color 2" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 315 Left = 120 TabIndex = 6 Top = 1050 Width = 2115 End Begin VB.CommandButton CmdItemColor1 Appearance = 0 'Flat BackColor = &H80000005& Caption = "Item Color 1" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 315 Left = 120 TabIndex = 5 Top = 270 Width = 2115 End Begin VB.CommandButton CmdItemColor3 Appearance = 0 'Flat BackColor = &H80000005& Caption = "Item Color 3" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 315 Left = 120 TabIndex = 4 Top = 1770 Width = 2115 End Begin VB.HScrollBar HScrollItemCount1 Height = 255 Left = 1020 Max = 10 TabIndex = 3 Top = 630 Value = 5 Width = 1215 End Begin VB.HScrollBar HScrollItemCount2 Height = 255 Left = 1020 Max = 10 TabIndex = 2 Top = 1410 Value = 3 Width = 1215 End Begin VB.HScrollBar HScrollItemCount3 Height = 255 Left = 1020 Max = 10 TabIndex = 1 Top = 2130 Value = 2 Width = 1215 End Begin VB.Label Label1 Caption = "Segment 1" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Left = 120 TabIndex = 9 Top = 630 Width = 795 End Begin VB.Label Label2 Caption = "Segment 2" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Left = 120 TabIndex = 8 Top = 1410 Width = 795 End Begin VB.Label Label3 Caption = "Segment 3" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Left = 120 TabIndex = 7 Top = 2130 Width = 795 End End Begin MSComDlg.CommonDialog CMDialog1 Left = 0 Top = 4080 _Version = 65536 _ExtentX = 847 _ExtentY = 847 _StockProps = 0 End Attribute VB_Name = "FormVu" Attribute VB_Creatable = False Attribute VB_Exposed = False Const DLG_COLOR = 3 'Color Dialog Flags Const CC_RGBINIT = &H1& Const CC_FULLOPEN = &H2& Const CC_PREVENTFULLOPEN = &H4& Const CC_SHOWHELP = &H8& Private Sub CmdBackColor_Click() ' ' Load the control with the Indicator BackColor ' CMDialog1.Color = VIndicator1.BackColor ' ' Execute the color select dialog ' CMDialog1.Flags = CC_RGBINIT Or CC_FULLOPEN CMDialog1.Action = DLG_COLOR ' ' Assign the selected color to VIndicator1 Backcolor properties ' VIndicator1.BackColor = CMDialog1.Color End Sub Private Sub CmdItemBackColor_Click() ' ' Load the control with the Indicator ItemBackColor ' CMDialog1.Color = VIndicator1.ItemBackColor ' ' Execute the color select dialog ' CMDialog1.Flags = CC_RGBINIT Or CC_FULLOPEN CMDialog1.Action = DLG_COLOR ' ' Assign the selected color to VIndicator1 ItemBackcolor properties ' VIndicator1.ItemBackColor = CMDialog1.Color End Sub Private Sub CmdItemColor1_Click() ' ' Load the control with the Indicator ItemForeColor1 ' CMDialog1.Color = VIndicator1.ItemForeColor1 ' ' Execute the color select dialog ' CMDialog1.Flags = CC_RGBINIT Or CC_FULLOPEN CMDialog1.Action = DLG_COLOR ' ' Assign the selected color to VIndicator1 ItemForeColor1 properties ' VIndicator1.ItemForeColor1 = CMDialog1.Color End Sub Private Sub CmdItemColor2_Click() ' ' Load the control with the Indicator ItemForeColor2 ' CMDialog1.Color = VIndicator1.ItemForeColor2 ' ' Execute the color select dialog ' CMDialog1.Flags = CC_RGBINIT Or CC_FULLOPEN CMDialog1.Action = DLG_COLOR ' ' Assign the selected color to VIndicator1 ItemForeColor2 properties ' VIndicator1.ItemForeColor2 = CMDialog1.Color End Sub Private Sub CmdItemColor3_Click() ' ' Load the control with the Indicator ItemForeColor3 ' CMDialog1.Color = VIndicator1.ItemForeColor3 ' ' Execute the color select dialog ' CMDialog1.Flags = CC_RGBINIT Or CC_FULLOPEN CMDialog1.Action = DLG_COLOR ' ' Assign the selected color to VIndicator1 ItemForeColor3 properties ' VIndicator1.ItemForeColor3 = CMDialog1.Color End Sub Private Sub Form_Load() ' Center the form on the screen Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 End Sub Private Sub HScrollBevelWidth_Change() VIndicator1.BevelWidth = HScrollBevelWidth.Value End Sub Private Sub HScrollBevelWidth_Scroll() VIndicator1.BevelWidth = HScrollBevelWidth.Value End Sub Private Sub HScrollBorderWidth_Change() VIndicator1.BorderWidth = HScrollBorderWidth.Value End Sub Private Sub HScrollBorderWidth_Scroll() VIndicator1.BorderWidth = HScrollBorderWidth.Value End Sub Private Sub HScrollItemCount1_Change() VIndicator1.ItemCount1 = HScrollItemCount1.Value End Sub Private Sub HScrollItemCount1_Scroll() VIndicator1.ItemCount1 = HScrollItemCount1.Value End Sub Private Sub HScrollItemCount2_Change() VIndicator1.ItemCount2 = HScrollItemCount2.Value End Sub Private Sub HScrollItemCount2_Scroll() VIndicator1.ItemCount2 = HScrollItemCount2.Value End Sub Private Sub HScrollItemCount3_Change() VIndicator1.ItemCount3 = HScrollItemCount3.Value End Sub Private Sub HScrollItemCount3_Scroll() VIndicator1.ItemCount3 = HScrollItemCount3.Value End Sub Private Sub HScrollValue_Change() VIndicator1.Value = HScrollValue.Value End Sub Private Sub HScrollValue_Scroll() VIndicator1.Value = HScrollValue.Value End Sub Private Sub OptionBevelInner_Click(index As Integer) VIndicator1.BevelInner = index End Sub Private Sub OptionBevelOuter_Click(index As Integer) VIndicator1.BevelOuter = index End Sub Private Sub OptionBorder_Click(index As Integer) VIndicator1.Border = index If index = 0 Then FrameBevelWidth.Enabled = False FrameBorderWidth.Enabled = False FrameBevelInner.Enabled = False FrameBevelOuter.Enabled = False Else FrameBevelWidth.Enabled = True FrameBorderWidth.Enabled = True FrameBevelInner.Enabled = True FrameBevelOuter.Enabled = True End If End Sub